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; Header for BASIC condition handler 15-SEP-1984 23:38:49 VAX/VMS Macro v04-00 


; Detailed Current Edit History 


LARATIONS 


Page 


BASSHANDLER 
e300 


B 1 
; Header for BASIC condition handler ak 3 4 $33 AX/VMS Macro V04-00 Page 
66-SEP-1984 BASRTL.SRCJBASHANDLE .MAR; 1 
-TITLE BASSHANDLER ; Header for BASIC condition handler 
«IDENT /1-002/ 3; File: BASHANDLE.MAR 


MARBBRBAALASZAAAALLLASELALAALALASARARRAAR RARE RARER AA RASA SESSA S SSSR SESE RRA R ESE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
** ® 
*® sd 
** ® 
** * 
# THIS SOFTWARE IS FURNISHED UNDER A \ .CENSE AND MAY BE USED AND COPIED + 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
j* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
s* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
*® ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
°* * 
** ® 
°® ® 
** ® 
** ® 
** ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IARRASSAASASASLSALELASESESE SER RSE RRR R SERRE RRR RSE R RRA RRA RRR ARAB RAR RA ARR S EDS | 


i AGILITY: BASIC-PLUS-2 Error Processing 
: "ABSTRACT: 


This module defines the symbol BASSHANDLER in case the vector from 
the shared Library is not present. 


CON AUS WR OC ODNAUE WN SO ODNAU EWN 0 COONAN WIN - OOONOUE wn 
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0 

0 ‘oe 

0 

: : ; VERSION: 1 

: HISTORY: 

0 : AUTHOR: 
: John Sauter, 21-AUG-1979 
000 . ; MODIFIED BY: 
000 
000 
000 


1 
(1) 


nna 


1 
r for BASIC condition handler yy es 


1386 23:38:49 VAX/VMS Macro v04-00 
1984 10:27:04 BASRTL. SRC JBASHANDLE .MAR; 1 


; Detailed Current Edit History 


BASSHANDLER ; Heade 
1-002 HISTORY ; Detailed Current Edit History 6-SE 
0000 50 -SBTTL HISTORY 
0000 51 
a4 26 : 
44 27 ; Edit History for Version 1 of BASSHANDLER 
0000 55 : 1-001 = Original. JBS 21-AUG-1979 
0000 56 ; 1-002 = Mark the entry mask explicitly to avoid a bug in BLISS-32. 
494 HA : JBS 28-AuG-1979 
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BASSHANDLER 
1-002 


dD 1 
; Header for BASIC condition handler iF ok jet b+ 93:38:49 eres Macro V04-00 
BECLARATIONS 6-SEP=1984 10:27:04 [CBASRTL.SRCJBASHANDLE.MAR; 1 
0 60 -SBTTL DECLARATIONS 
$800 et 
000 86 ; 
000 635 ; INCLUDE FILES: 
000 64 ; 
0000 65 ; NONE 
0000 66 ; 
0000 67 ; EXTERNAL SYMBOLS: 
0000 68 ; 
0000 69 -EXTRN BASSSHANDLER 3; The real handler code 
0000 70 ; 
B08 71; 
000 i : MACROS: 
0000 fo 3 
0000 74; NONE 
0000 75 3 
0000 76 ; 
0000 77 ; PSECT DECLARATIONS: 
00000000 78 -PSECT _BASSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 79 
0000 80 ; 
0000 81 ; EQUATED SYMBOLS: 
0000 82 ; 
0000 83 ; NONE 
0000 84 ; 
0000 85; 
0000 86 ; OWN STORAGE: 
0000 87 ; 
0000 88 ; NONE 
0000 89 ; 
0000 90 
0000 91 3+ ga 
0000 92 ; The following definition of BASSHANDLER is equivalent to the one 
0000 93 ; im RTLVECTOR. In particular, it does not introduce another call 
0000 94 ; frame, since this would cause trouble with the count of the number 
444 a2 3; of frames to cut back on RESUME. 
OFFC 0000 97 -ENTRY BASSHANDLER, “M<R2, R3, R4, RS, R6, R7, RB, RI, R10, RID 
00000002 ‘EF 17 sia 4 JMP BASSSHANDLER+2 ; Branch past BASSS$HANDLER'S mask 
0008 100 .END 
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1 
3; Header for BASIC condition render ia 


BASSHANDLER 
Symbol table 
BASSSHANDLER eeereeee 00 
BASSHANDLER 00000000 RG” 01 

pfwoanrmeoaocae ne econ + 

! ;_Psect synopsis : 
—PSECT _name Allocation PSECT No. Attributes 
ABS e444 60 ( 0.) NOPIC uSR C 
“BASSCODE 0000000 1¢ 1.) PIC USR ¢ 

hewn em OO eS ee Se we 
: ;_Pertornance indicators : 
| Phase Page faults CPU Time Elapsed Time 
| Initialization 30 00:00:00.09  00:00:00.44 
Command processing 113 00:00:00.50 00:00:01 .67 
Pass 1 70 00:00:00.30 00:00:00.78 
Symbol table sort 0 00:00:00.01 00:00:00.01 
Pass 2 32 00:00:00.23 00:00:00.62 
Symbol table output 1 00:00:00.01 00:00:00.01 
| Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
1 00:00:01.16 00:00:03.55 


The pork tng, sot Limit was 900 pages. 


918 bytes pages) of virtual memory were 


There were 10 pages of symbol table ee to hold 2 
producin 
0 pages of virtual memory were used to define 


5 eer pes run totals 25 
E source Lines were read in Pass 1 
| 


Macro library name 


"$255$DUA28: CSYSLIBISTARLET.MLB;2 


=$EP=1986 10:27:04 


ON ABS 
ON REL 


used to buffer the intermediate code. 


11 object records in Pass 2. 
macros. 


There were no errors, warnings or information messages. 
| MACRO/ENABLE =SUPPRE SS10N/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:BASHANDLE/OBJ=0BJ$:BASHANDLE MSRC$:BASHANDLE /UPDATE=(ENH$ : BASHANDLE ) 


GETS were required to define 0 macros. 


non-local and 0 local symbols. 


AX/VMS 
BASRTL. 


Macro V04-00 
SRC JBASHANDLE .MAR; 1 


rome 


LCL ae NOEXE NORD NOWRT NOVEC BYTE 
L SHR EXE 


RD NOWRT NOVEC LONG 


o 
ar 
=> 
wn 
= 
~ 
“~ 
x 
ce 
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